|
|  Russite Puss in the Corner
|  Ecrit par Ph. DONSBACK

|
SCRIPT_TYPE 1
|
BEGIN "Puss in the Corner"

  FLAGS  ClickFly AnimateFly AutoFly
  PACKS  1
  WIDTH  4 * CW
  HEIGHT 4 * CH

  ZeroToWin 52 - CARDSIN$2

  FOR row = 1 TO 2
    FOR column = 1 TO 2
      FOUNDATION
        X column * CW
        Y row    * CH
        DEAL 1,1
        DEALCARD x1 
        FLAGS Join__SC
        ID 2
      END
    END
  END

  STACK
    X CW + CW / 2
    Y 3 * CH 
    DEAL 48,1
    DEALTO 0,0
    TAKEFROM 1,1
    MAX 0
    FLAGS Paintlast
    ID 3
  END

  FOR row = 0 TO 1
    FOR column = 0 TO 1
      STACK
        X column * CW * 3
        Y row    * CH * 3
        FIRST 1,13
        DragUpTo 1
        JoinOffset 0,1,2,3,4,5,6,7,8,9,10,11,12
        FLAGS ClickFly Join____ RotateJoin PaintLast
        JoinFrom 3
        ID 1
      END
    END
  END


END
